home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / space / educatio / mac / sttstcks.hqx / STATE_STACK / card_2894.txt < prev    next >
Text File  |  1993-02-04  |  5KB  |  223 lines
  1. -- card: 2894 from stack: in
  2. -- bmap block id: 4356
  3. -- flags: 0000
  4. -- background id: 2662
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=16 top=242 right=318 bottom=110
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 12912 of stack "ASTRONAUTS/STACK"
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 5 (button)
  29. -- low flags: 00
  30. -- high flags: 8000
  31. -- rect: left=153 top=116 right=138 bottom=177
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to card id 13209 of stack "STATE/NARRATIVE/RESPONSE"
  43. end mouseUp
  44.  
  45.  
  46.  
  47.  
  48. -- part 6 (button)
  49. -- low flags: 00
  50. -- high flags: 8000
  51. -- rect: left=153 top=162 right=188 bottom=179
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: 
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   go to card id 6521 of stack "State/Statistical/Response"
  63. end mouseUp
  64.  
  65.  
  66.  
  67.  
  68. -- part 7 (button)
  69. -- low flags: 00
  70. -- high flags: 8000
  71. -- rect: left=152 top=209 right=235 bottom=179
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: 
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   go to card id 6547 of stack "STATE/INSPIRATION/RESP."
  83. end mouseUp
  84.  
  85.  
  86.  
  87.  
  88. -- part 8 (button)
  89. -- low flags: 00
  90. -- high flags: 8000
  91. -- rect: left=153 top=255 right=280 bottom=179
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: 
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   go to card id 15168 of stack "STATE/HUMOR/STACK"
  103. end mouseUp
  104.  
  105.  
  106.  
  107.  
  108. -- part 9 (button)
  109. -- low flags: 00
  110. -- high flags: 8000
  111. -- rect: left=21 top=92 right=177 bottom=121
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: 
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   go to card id 7132 of stack "Space Museums/Exhibits"
  123. end mouseUp
  124.  
  125.  
  126.  
  127.  
  128. -- part 17 (button)
  129. -- low flags: 00
  130. -- high flags: 0000
  131. -- rect: left=50 top=6 right=19 bottom=84
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: globalfind
  140. ----- HyperTalk script -----
  141. on mouseup
  142.   repeat with y = 1 to 100
  143.     set cursor to busy
  144.     global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  145.     global t0, x, r,hat,straw,buff1,buff2,count1,count2, t45,t46,t47,t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  146.     find whole t0
  147.     get the result
  148.     if count1>=3 and it is not empty then
  149.       put the number of this card into hat
  150.       put the foundchunk into buff1
  151.       show message box
  152.       flash 2
  153.       exit mouseup
  154.     else
  155.       if it is not empty then
  156.         add 1 to count1
  157.         add 1 to x
  158.         put "t"&x into r
  159.         set lockscreen to true
  160.         go to "State/Statistical/Response"
  161.         send "mouseup" to button "GlobalFind"
  162.       else
  163.         put the number of this card into hat
  164.         put the foundchunk into buff1
  165.         exit mouseup
  166.       end if
  167.     end if
  168.   end repeat
  169. end mouseup
  170. on enterkey
  171.   global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  172.   global t0,x,r,hat,straw,buff1,buff2,count1,count2,t45,t46,t47, t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  173.   hide message box
  174.   find whole t0
  175.   put 0 into count1
  176.   put the number of this card into straw
  177.   put the foundchunk into buff2
  178.   if straw = hat and buff1 = buff2 then
  179.     add 1 to x
  180.     put "t"&x into r
  181.     set lockscreen to true
  182.     go to "State/Statistical/Response"
  183.     send "mouseup" to button "GlobalFind"
  184.   end if
  185. end enterkey
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221. -- part contents for background part 6
  222. ----- text -----
  223.                INDIANA